home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / bints.dir < prev    next >
File List  |  1993-02-18  |  2KB  |  232 lines
  1. %%HP: T(3)A(D)F(.);
  2. DIR
  3.   SETUP
  4.     \<< CLLCD -13 CF
  5. "Processing:
  6. Workspace"
  7. 1 DISP VARS '\Gt' DUP
  8. CRDIR EVAL LIST\-> 2
  9. SWAP
  10.       START DUP
  11. \->STR 2 DISP DUP RCL
  12.         IF DUP TYPE
  13. 2 ==
  14.         THEN
  15.           IF DUP
  16. NUM 40 ==
  17.           THEN \->RPL
  18.           END
  19.         END SWAP
  20. STO
  21.       NEXT DROP
  22. "Library" 2 DISP
  23. D\->LIB
  24. "Cleanup...
  25.  
  26.  
  27.  
  28. " 1
  29. DISP -13 SF UPDIR
  30. '\Gt' PGDIR
  31.     \>>
  32.   \->I
  33. "(\->I)
  34. ::
  35.  CK1&Dispatch
  36.  # B HXS>#
  37.  # 1 %ABSCOERCE
  38. ;"
  39.   I\->r
  40. "(I\->r)
  41. ::
  42.  CK1&Dispatch
  43.  # 1F UNCOERCE
  44. ;"
  45.   I\->B
  46. "(I\->B)
  47. ::
  48.  CK1&Dispatch
  49.  # 1F #>HXS
  50. ;"
  51.   ADDI
  52. "(ADDI)
  53. ::
  54.  CK2&Dispatch
  55.  # 1F1F #+
  56. ;"
  57.   SUBI
  58. "(SUBI)
  59. ::
  60.  CK2&Dispatch
  61.  # 1F1F #-
  62. ;"
  63.   INCI
  64. "(INCI)
  65. ::
  66.  CK1&Dispatch
  67.  # 1F #1+
  68. ;"
  69.   DECI
  70. "(DECI)
  71. ::
  72.  CK1&Dispatch
  73.  # 1F #1-
  74. ;"
  75.   MULI
  76. "(MULI)
  77. ::
  78.  CK2&Dispatch
  79.  # 1F1F #*OVF
  80. ;"
  81.   DIVI
  82. "(DIVI)
  83. ::
  84.  CK2&Dispatch
  85.  # 1F1F #/
  86. ;"
  87.   NEGI
  88. "(NEGI)
  89. ::
  90.  CK1&Dispatch
  91.  # 1F
  92.  CODE
  93.   GOSBVL =POP#
  94.   A=-A   A
  95.   GOVLNG #03DC7
  96.  ENDCODE
  97. ;"
  98.   ANDI
  99. "(ANDI)
  100. ::
  101.  CK2&Dispatch
  102.  # 1F1F #AND
  103. ;"
  104.   ORI
  105. "(ORI)
  106. ::
  107.  CK2&Dispatch
  108.  # 1F1F
  109.  CODE
  110.   GOSBVL =POP2#
  111.   A=A!C  A
  112.   GOVLNG #03DC7
  113.  ENDCODE
  114. ;"
  115.   XORI
  116. "(XORI)
  117. ::
  118.  CK2&Dispatch
  119.  # 1F1F
  120.  CODE
  121.   GOSBVL =POP2#
  122.   R0=A
  123.   A=A&C  A
  124.   AR0EX
  125.   A=A!C  A
  126.   C=R0
  127.   A=A-C  A
  128.   GOVLNG #03DC7
  129.  ENDCODE
  130. ;"
  131.   NOTI
  132. "(NOTI)
  133. ::
  134.  CK1&Dispatch
  135.  # 1F
  136.  CODE
  137.   GOSBVL =POP#
  138.   A=-A-1 A
  139.   GOVLNG #03DC7
  140.  ENDCODE
  141. ;"
  142.   SLI
  143. "(SLI)
  144. ::
  145.  CK1&Dispatch
  146.  # 1F #2*
  147. ;"
  148.   SRI
  149. "(SRI)
  150. ::
  151.  CK1&Dispatch
  152.  # 1F #2/
  153. ;"
  154.   SLNI
  155. "(SLNI)
  156. ::
  157.  CK1&Dispatch
  158.  # 1F
  159.  CODE
  160.   GOSBVL =POP#
  161.   ASL    A
  162.   GOVLNG #03DC7
  163.  ENDCODE
  164. ;"
  165.   SRNI
  166. "(SRNI)
  167. ::
  168.  CK1&Dispatch
  169.  # 1F
  170.  CODE
  171.   GOSBVL =POP#
  172.   ASR    A
  173.   GOVLNG #03DC7
  174.  ENDCODE
  175. ;"
  176.   EQI
  177. "(EQI)
  178. ::
  179.  CK2&Dispatch
  180.  # 1F1F
  181.  :: #= COERCEFLAG
  182.  ;
  183. ;"
  184.   NEI
  185. "(NEI)
  186. ::
  187.  CK2&Dispatch
  188.  # 1F1F
  189.  :: #<> COERCEFLAG
  190.  ;
  191. ;"
  192.   LTI
  193. "(LTI)
  194. ::
  195.  CK2&Dispatch
  196.  # 1F1F
  197.  :: #< COERCEFLAG
  198.  ;
  199. ;"
  200.   GTI
  201. "(GTI)
  202. ::
  203.  CK2&Dispatch
  204.  # 1F1F
  205.  :: #> COERCEFLAG
  206.  ;
  207. ;"
  208.   TSTI
  209. "(TSTI)
  210. ::
  211.  CK1
  212.  DUPTYPEBINT?
  213.  NcaseTYPEERR
  214.  DUP#0<> COERCEFLAG
  215. ;"
  216.   $CONFIG
  217. "($CONFIG)
  218. ::
  219.  # 3F3 TOSRRP
  220. ;"
  221.   $VISIBLE { \->I I\->r
  222. I\->B ADDI SUBI INCI
  223. DECI MULI DIVI NEGI
  224. ANDI ORI XORI NOTI
  225. SLI SRI SLNI SRNI
  226. EQI NEI LTI GTI
  227. TSTI }
  228.   $TITLE
  229. "BINTS :1.0\169DM'93"
  230.   $ROMID 1011
  231. END
  232.